## Donjon et Dragon pour Sharp PC1500 ( pas de programme )
## tir du magazine Hebdogiciel N9
## 
## 	Un jeu graphique o tout y est : le trone du roi, la couronne, les dragons et les monstres rampants et volants.
## 
## Rgles du jeu :
## 	Le chevalier se dplace avec les touches 4 et 6.
##  Dans le premier tableau, il doit attraper le roi qui tente de s'enfuir vers le donjon.
##  Si le roi est tu, le preux chevalier se retrouve dans la salle du trone o est cache la couronne;un dragon la protge et il crache du feu!
##  Si pendant le premier tableau le roi russit  pntrer dans le donjon, le deuxime tableau apparait.
##  Du donjon de droite surgissent des monstres rampants et ails ainsi que des dragons et le chevalier doit se battre :
##  Q pour lever son pe et abattra les monstres volants, A pour les dragons et M pour les monstres rampants.
##  Quand quinze monstres sont terrasss, le troisime tableau apparait.
## 
## Programme :
1 REM **********
2 REM * Donjon *
3 REM *   et   *
4 REM * Dragon *
5 REM * pc1500 *
6 REM *o.france*
7 REM **********
8 CLEAR:PAUSE "    Donjon & Dragon":CLS
9 WAIT 0:A=50:C=1:U=70:H=25:RANDOM:N$="0000000000":OP=10000
10 DIM B$(2)*10:B$(0)="0804020100":B$(1)="0808080800":B$(2)="0810204000"
11 M$="606040626F624060"
12 E$="000844641E1D1E64408"
13 DIM A$(6)*16:A$(0)="020A05565F5E2C40300":A$(1)="02060E0A01":A$(2)="0202020201"
14 A$(5)="0010482B3E2B4810"
15 A$(3)="2020402040204040":A$(4)="1010204020402020"
16 U=RND 20+80:X=190:G=5:VV=5400
50 D$="082A1C7F1C2A08":GOSUB 1100
65 U=U+.5:GCURSOR U:GPRINT A$(5)
67 IF U>=125 GOTO 7000
68 IF A+8>=X GOTO 8000
70 B$="037C7F7C7F7C03":GCURSOR 1:GPRINT B$:GCURSOR 145:GPRINT B$
100 GOTO 50
1000 WAIT 5:FOR I=A+15 TO 125 STEP 5
1010 GCURSOR I:GPRINT N$;D$:BEEP 1,5,1
1015 NEXT I:O=O+1
1016 IF O>15 LET O=OP+A:GOTO 5500
1020 G=RND 3
1021 IF G=2 LET G=0
1030 GCURSOR 125:GPRINT A$(G);N$;N$
1034 IF G=0 LET R=0
1035 IF G=1 LET R=2
1036 IF G=3 LET R=4
1037 GOTO 2100
1100 A$=INKEY$:OP=OP-1:H=H+.25
1105 GCURSOR H:GPRINT "00001070303030780800"
1106 IF H>=A-9 GOTO 5000
1120 IF A$="6" LET A=A+1:H=H+.5
1130 IF A$="4" LET A=A-1
1140 IF A$="q" LET C=0
1150 IF A$="a" LET C=1
1160 IF A$="z" LET C=2
1165 BEEP 1,10,1:GCURSOR A:GPRINT E$;08;B$(C);00;00
1166 IF (A+15>=U) AND (G=0) AND (C=1) GOTO 1000
1167 IF (A+15>=U) AND (G=1 OR 2) AND (C=0) GOTO 1000
1170 IF (A+15>=U) AND (G=3 OR 4) AND (C=2) GOTO 1000
1180 IF A+15>U GOTO VV
1200 RETURN
2100 FOR U=125 TO 0 STEP -5
2110 GCURSOR U:GPRINT A$(G);N$
2115 GOSUB 1100:BEEP 1,5,I/5
2120 GCURSOR U:GPRINT A$(R);N$;N$:NEXT U
5000 WAIT 100:GCURSOR A+3:GPRINT M$;N$:BEEP 10,RND 100,500:CLS:PRINT "perdu":END
5400 WAIT 100:GCURSOR U:GPRINT M$:VV=5000
5500 CLS:WAIT 0:F=600:H=25:A=40:U=70
5600 GCURSOR U:GPRINT A$(0):GCURSOR 1:GPRINT B$:GCURSOR 145:GPRINT B$;
6010 GCURSOR 80:GPRINT "18101810180000007878181F7F"
6020 P=RND 7000
6025 IF P<F GOTO 6125
6030 OF P>F LET V$="00":K=66
6040 GCURSOR K:GPRINT V$
6045 VV=9000
6050 GOSUB 1100
6060 IF (P<F) AND (A+15>62) GOTO 5000
6070 GOTO 5600
6125 WAIT 2:GCURSOR 60:GPRINT "0204020402040204":GCURSOR 60:GPRINT N$;N$:BEEP 1,5,25:WAIT 0:GOTO 6060
7000 X=RND 10+(A+15):Q=H:VV=5000
7001 FOR I=Q TO A:H=1
7002 GCURSOR H:GPRINT 00;S$+Z$
7003 GOSUB 1100
7004 GCURSOR X:GPRINT "20707C7020":BEEP 1,2,30
7005 IF A+15>=X LET L=1000:GOTO 8000
7015 NEXT I
8000 WAIT 7:FOR I=15 TO 0 STEP -1
8002 GCURSOR A:GPRINT "7F7F37186162610838777F7F":BEEP 1,1,5:NEXT I:A=50:H=25:GOTO L
9000 CLS
9001 FOR I=0 TO 250:GCURSOR 50:GPRINT "010274753E21207F":CURSOR 2:PRINT "roi":BEEP 1,5,1
9002 GCURSOR 1:GPRINT B$:GCURSOR 145:GPRINT B$:CURSOR 10:PRINT OP;" ";"pts";:NEXT I
